home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / DATAUTIL / DBASEUT1.LZH / LITE.PRG < prev    next >
Text File  |  1985-11-03  |  3KB  |  121 lines
  1. *lite.prg
  2. * CORT COLLINS
  3. * (213) 223-1000   (213) 466-9157 
  4.  
  5. clear
  6. set talk off
  7. set bell off
  8. set delim off
  9. set procedure to window
  10. a = chr(205)
  11. aa = A+A+A+A+A+A+A+A+A+A 
  12. wdash = AA+AA+AA+AA+AA+AA+AA+AA
  13. store space(79) to wblank
  14. store .T. to menuon
  15. do while menuon
  16. clear
  17. rowsstart = 2
  18. rowsend = 4
  19. colsstart = 0
  20. colsend = 79
  21. do window
  22. store "                     I M S     MENU SYSTEM..." TO COMSG
  23. store " [8] Move Bar " + chr(24)+ " " to msg1
  24. store " [2] Move Bar " + chr(25)+ " " to msg2
  25. store " [X] to EXIT " to msg3
  26. store "("+chr(17)+chr(196)+chr(217)+")"+"Select Menu Item " to msg4
  27. @ 23,02 get msg1
  28. @ 23,21 get msg2                
  29. @ 23,40 get msg3
  30. @ 23,56 get msg4
  31. @ 01,13 SAY COMSG
  32. clear gets
  33. rowsstart = 07
  34. rowsend = 13
  35. colsstart = 28
  36. colsend = 47
  37. nbr_items = 5
  38. do window
  39. store "Menu Selection 1 " to c10
  40. store "Menu Selection 2 " to c11
  41. store "Menu Selection 3 " to c12
  42. store "Menu Selection 4 " to c13
  43. store "Return to dBASE  " to c14
  44. @ rowsstart+1,colsstart+2 say c10
  45. @ rowsstart+2,colsstart+2 say c11
  46. @ rowsstart+3,colsstart+2 say c12
  47. @ rowsstart+4,colsstart+2 say c13
  48. @ rowsstart+5,colsstart+2 say c14
  49. store 1 to cnter
  50. store nbr_items to mdecision, nbr
  51. store rowsstart+1 to rowstrt, rowcurr, row
  52. store colsstart+2 to col 
  53. store rowcurr to row
  54. do while nbr > 0
  55. @ 3,1 say space(78)
  56. do case
  57.    case cnter = 1
  58.     @ 3,1 say "Amplification of Menu 1"
  59.    case cnter = 2
  60.     @ 3,1 say "Amplification of Menu 2"
  61.    case cnter = 3
  62.     @ 3,1 say "Amplification of Menu 3"
  63.    case cnter = 4
  64.     @ 3,1 say "Amplification of Menu 4"
  65.    case cnter = 5
  66.     @ 3,1 say "This selection will leave you at the dBASE III prompt..."
  67. endcase
  68. store "C"+ str(cnter + 9,2) to x
  69. store "X"+ str(cnter + 9,2) to s
  70. store chr(16) to &s
  71. @ row,col get &x
  72. clear gets
  73. @ row,col-1 get &s
  74. read
  75. @ row,col-1 say " " + &x
  76. do case
  77.    case &s = "2"
  78.    if cnter < nbr_items
  79.       row = row + 1
  80.       cnter = cnter + 1
  81.    else
  82.       store rowstrt to row
  83.       store 1 to cnter
  84. endif
  85.    case &s = "8"
  86.    if row # rowstrt    
  87.       store row-1 to row
  88.       store cnter-1 to cnter
  89.    else
  90.       store rowstrt + (nbr_items - 1) to row
  91.       store nbr_items to cnter
  92. endif
  93.    case &S= chr(16)
  94.    store cnter to mdecision
  95.    store 0 to nbr
  96.    case &s = "X"
  97.    close proc
  98.    clear all
  99.    clear 
  100.    return
  101. endcase
  102. store row to rowcurr
  103. enddo
  104. do case
  105.    case mdecision = 1
  106.    do tester
  107.    case mdecision = 2
  108.    do menuusel2
  109.    case mdecision = 3
  110.    do menusel3
  111.    case mdecision = 4
  112.    do menusel4
  113.    case mdecision = 5
  114.    close procedure
  115.    clear all
  116.    clear
  117.    return
  118. endcase
  119. enddo
  120. 1) to row
  121.       store n